home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / fb386 / egcg1 / g04.bas < prev    next >
BASIC Source File  |  1991-10-18  |  1KB  |  43 lines
  1. 100 ' G04 T.WAKAMATSU
  2. 110 DIM X(20),Y(20):C(1)=6:C(2)=5
  3. 120 FOR I=1 TO 6:READ H(I):NEXT I:DATA 4,5,2,3,6,1
  4. 130 CLS:PI=3.14159!
  5. 140 FOR P=1 TO 2
  6. 150   K=60:F=0
  7. 160   FOR L=0 TO 60
  8. 170     N=0:J=F:F=F+1
  9. 180     FOR I=L TO 360+L STEP K
  10. 190       J=100-J:M=I+J
  11. 200       T=M*PI/180
  12. 210       N=N+1
  13. 220       X(N)=239*COS(T)+320
  14. 230       Y(N)=239*SIN(T)+240
  15. 240     NEXT I
  16. 250     PSET(X(1),Y(1))
  17. 260     FOR I=1 TO 6
  18. 270       LINE-(X(H(I)),Y(H(I))),PSET,C(P)
  19. 280     NEXT I
  20. 290   NEXT L
  21. 300 NEXT P
  22. 310 FOR P=1 TO 2
  23. 320   K=60:F=0
  24. 330   FOR L=0 TO 60
  25. 340     N=0:J=F:F=F+1
  26. 350     FOR I=L TO 360+L STEP K
  27. 360       J=100-J:M=I+J
  28. 370       T=M*PI/180
  29. 380       N=N+1
  30. 390       X(N)=239*COS(T)+320
  31. 400       Y(N)=239*SIN(T)+240
  32. 410     NEXT I
  33. 420     PSET(X(1),Y(1))
  34. 430     FOR I=1 TO 6
  35. 440       IF I MOD 3=1 THEN C=7
  36. 450       IF I MOD 3=2 THEN C=2
  37. 460       IF I MOD 3=0 THEN C=1
  38. 470       IF P=2 THEN C=0
  39. 480       LINE-(X(H(I)),Y(H(I))),PSET,C
  40. 490     NEXT I
  41. 500   NEXT L
  42. 510 NEXT P
  43.